home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #062 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #062 (1990-04)(Amiga User Group Deutschland e.V.).adf / Rätzel / Haus_vom_Nikolaus (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  3KB  |  107 lines
  1.  
  2.   SCREEN 1,640,400,5,1
  3.   WINDOW 2,,,2+4+8,1
  4. beginn:
  5.   PALETTE 0,0,0,0.6   
  6.   PALETTE 1,0,0,0.6   :PALETTE 2,0,0,0.6      
  7.   PALETTE 4,0.93,0.2,0 :PALETTE 3,0,0,0.6   :PALETTE 5,0.93,0.2,0     
  8.   PALETTE 6,1,0.8,0   :PALETTE 7,1,1,0    :PALETTE 8,0.6,1,0.15   
  9.   PALETTE 9,0.5,0.8,0.15:PALETTE 10,0.4,0.6,0  
  10.   PALETTE 15,0,1,0.6  :PALETTE 16,0.2,1,0.93:PALETTE 17,0.2,0.75,1               
  11.   PALETTE 26,0.8,0.55,0.5 
  12.   PALETTE 27,0.6,0.4,0.35:PALETTE 28,0.4,0.2,0 
  13.   PALETTE 30,0.6,0.6,0.6 :PALETTE 31,0,0,0     
  14.   COLOR 15,0
  15.   LOCATE 2,1:PRINT "Sie kennen doch bestimmt das Haus vom "
  16.   LOCATE 3,1:PRINT "Nikolaus,versuchen Sie doch einmal,das"
  17.   LOCATE 4,1:PRINT "Haus mit vier Giebeln,in einem Zug,ohne"
  18.   LOCATE 5,1:PRINT "abzusetzen und ohne doppelte Linien
  19.   LOCATE 6,1:PRINT "zu zeichnen."
  20.   FOR x=-0 TO 60 STEP 0.5
  21.   PSET (180-x,180),6       
  22.   NEXT x
  23.   FOR x=-0 TO 60 STEP 0.5
  24.   PSET (120,180-x),6      
  25.   NEXT x
  26.   FOR x=-0 TO 30 STEP 0.5   
  27.   PSET (120+x,120-x),6     
  28.   NEXT x
  29.   FOR x=0 TO 30 STEP 0.5
  30.   PSET (150+x,90+x),6      
  31.   NEXT x
  32.   FOR x=-0 TO 60 STEP 0.5
  33.   PSET (180-x,120),6      
  34.   NEXT x
  35.   FOR x=0 TO 60 STEP 0.5
  36.   PSET (120+x,120+x),6    
  37.   NEXT x
  38.   FOR x=-0 TO 60 STEP 0.5
  39.   PSET (180,180-x),6      
  40.   NEXT x
  41.   FOR x=0 TO 60 STEP 0.5
  42.   PSET (180-x,120+x),6    
  43.   NEXT x
  44.   LINE (90,150)-(120,120),5
  45.   LINE (90,150)-(120,180),5
  46.   LINE (120,180)-(150,210),5
  47.   LINE (150,210)-(180,180),5
  48.   LINE (180,180)-(210,150),5
  49.   LINE (180,120)-(210,150),5
  50.   COLOR 5,0
  51.   LOCATE 28,1 :PRINT "So diese drei roten Giebel noch dazu"
  52.   LOCATE 29,1 :PRINT "zeichnen,ohne abzusetzen!"
  53. start:
  54.    LINE (225,175)-(300,200),27,bf 
  55.    LINE (225,175)-(300,200),5,b      
  56.    LINE (226,176)-(299,199),6,b           
  57.    LOCATE 24,30:PRINT "ZEICHNEN"
  58. Maus:
  59.    WHILE 1
  60.    v= MOUSE(0)
  61.    IF MOUSE(0) = 0 THEN WEND
  62.    CALL Maus(x,y)
  63.    IF x<225 OR x>300 THEN GOTO Maus
  64.    IF y<175 OR y>200 THEN GOTO Maus
  65.    SUB Maus (x,y) STATIC
  66.    x = MOUSE(1)
  67.    y = MOUSE(2)
  68.    END SUB
  69.    GOSUB zeichnen  
  70. zeichnen:
  71.    CLS      
  72.    LINE (225,175)-(300,200),27,bf      
  73.    LINE (225,175)-(300,200),5,b      
  74.    LINE (226,176)-(299,199),7,b      
  75.    LOCATE 24,32:PRINT "NEU"
  76. punkte:
  77.       CIRCLE (150,40),2
  78.       CIRCLE (150,200),2
  79.       CIRCLE (60,120),2
  80.       CIRCLE (240,120),2
  81.       CIRCLE (100,80),2
  82.       CIRCLE (150,120),2                 'PUNKTE
  83.       CIRCLE (100,160),2
  84.       CIRCLE (200,160),2
  85.       CIRCLE (200,80),2
  86.       GOSUB mauss
  87. mauss:
  88.    WHILE 1
  89.    v= MOUSE(0) :x=MOUSE(1) :y=MOUSE(2)
  90.    IF MOUSE(0) = 0 THEN WEND
  91.    CALL mauss (x,y)
  92.    IF x<225 OR x>300 THEN GOTO mauss      'NEUTASTE
  93.    IF y<175 OR y>200 THEN GOTO mauss
  94.    SUB mauss (x,y) STATIC
  95.    LINE (x,y)-(MOUSE(1),MOUSE(2)),7
  96.    x=MOUSE(1):y=MOUSE(2)
  97.    END SUB
  98.    GOTO zeichnen
  99.   
  100.  '********************************************************************
  101.    'Detlef Kornatz 
  102.    'Feuerbachstrasse 6
  103.    '4300 Essen 1
  104.                        'Nicht ärgern war nur Spass
  105.  '********************************************************************
  106.    
  107.